home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / lz60.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  69 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LZ60.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 09/01/89     11:30
  9. *:
  10. *:      Called by: LOGAWARD.PRG                  
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:
  14. *:        Indexes: &LOGNDX
  15. *:
  16. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  17. *:*********************************************************************
  18. *LZ60  SCAN LOG FOR LZ60 AWARD REQUIREMENTS
  19. ? 'LZ60 AWARD CONTACTS/POINTS SUMMARY'
  20. ACCEPT 'Do you want Hard Copy (Y/N) ? ' TO pf
  21. pf = SUBSTR(pf,1,1)
  22. IF pf = 'Y'
  23.    SET PRINT ON
  24. ENDIF
  25. USE &logbook INDEX &logndx
  26. FIND lz
  27. STORE 0 TO points
  28. STORE 0 TO spoints
  29. CLEAR
  30. ? '                    LZ 60 AWARD CONTACTS '
  31. ? '  CALL       DATE   TIME  BD TX  RX MODE '
  32. ?? 'POWER   COMMENTS        POINTS'
  33. ? '----------------------------------------------------------------------'
  34. DO WHILE CALL = 'LZ' .and. .not. EOF()
  35.    * date has to be in yy/mm/dd format
  36.    IF DATE >= '86/07/01' .and. DATE <= '86/12/31'
  37.       IF CALL = 'LZ6'
  38.          STORE 6 TO points
  39.       ELSE
  40.          STORE 1 TO points
  41.       ENDIF
  42.       STORE spoints + points TO spoints
  43.       ? CALL,DATE,TIME,band,tx,rx,mode,Power,comments,points
  44.       STORE CALL TO ncall
  45.       STORE band TO nband
  46.       DO WHILE CALL = ncall .and. .not. EOF()
  47.          * .AND. band = nband
  48.          * if same call on different bands is allowed
  49.          * SKIP DUPES
  50.          SKIP
  51.       ENDDO
  52.       IF .not. EOF()
  53.          SKIP -1
  54.       ENDIF
  55.    ENDIF
  56.    SKIP
  57. ENDDO
  58. USE
  59. ? '-----------------------------------------------------------------------'
  60. ? 'TOTAL POINTS = ',spoints
  61. IF pf = 'Y'
  62.    EJECT
  63.    SET PRINT OFF
  64. ENDIF
  65. RELEASE spoints,points,ncall,nband,pf
  66. WAIT
  67. RETURN
  68. *: EOF: LZ60.PRG
  69.